home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d10
/
typinstr.arc
/
BASLSN8.DAT
< prev
next >
Wrap
Text File
|
1991-03-20
|
366b
|
8 lines
6,5
x=abs(7*(-5)): z$=chr$(x): print asc(z$) 'prints a # sign
if q%<20 then print chr$(7): beep else return 'beeps twice
def seg=&hb800: bload "picture",0: def seg 'shows picture
open "I",2,"ABC": input #2, a$,b$,c$: for n=1 to 6: line
input #2, abc$: next n: close 2 'gets data from the file
q!=10^2 + 356.78: print using "$$###.##";q 'prints $456.78